home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / compare.e < prev    next >
Text File  |  1995-12-22  |  295b  |  11 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC bigger(a,max) IS IF (a<max) THEN max ELSE a
  5. PROC smaller(a,min) IS IF (a>min) THEN min ELSE a
  6. PROC limit(a,min,max)
  7.     IF a<min THEN a:=min
  8.     IF a>max THEN a:=max
  9. ENDPROC a
  10. EXPORT PROC inside(dx,dy,x1,y1,w,h) IS ((dx>=x1) AND (dx<=(x1+w)) AND (dy>=y1) AND (dy<=(y1+h)))
  11.